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TITLE MAILSGETUSER GET USER AUTHORIZATION INFO 
* IDENT 


MARA RARARAAARSALASSLALALESLALE SEES EEE SERS E EES REESE EEE R SEES E SEES SESS ESE ESAS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, - MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
& 
® 
® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN| ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
a 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE + 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. . 
® 

® 

® 

® 

® 

* 


DIGITAL ASSUMES NO RESPONS we 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH 


FOR THE USE OR RELIABILITY OF ITS 


LITY 
S NOT SUPPLIED BY DIGITAL. 


. . 
e@eeee ee Ree Re eae RR RR RR 


LARRRBARRARARALASLALAASEALESLASEASELAESSESSE RSE RES SEE EERE SERRE ESE SEE RR OSE EEE 


SOoQooooooooooooooooOoooooOoCooOooO 

SOoOCoCOCCOCOCOOCOCOOCOOOOOOOCOOSCOSoO 

SOOCOCCOCOCCOCO COCO OCOOOOOOOOoOoCoOOo 

pole lo leleoleloleloleoleleleleloleleolelolelelelololelola) 
Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge 


: FACILITY: VAX/VMS MAIL UTILITY 
; ABSTRACT: GET USER AUTHORIZATION INFO 


; ; ENVIRONMENT: NATIVE/USER MODE 


; AUTHOR: LEN KAWELL, CREATION DATE: 23-AUG-78 
; MODIFICATION HISTORY: 
v03-009 BLS0261 Benn Schreiber 16-Jan-1984 
UAFSB_FLAGS is now UAFSL_FLAGS 
v03-008 BLS0255 Benn Schreiber 28-Dec-1983 
Use new global flags 
v03-007 bu scee? Benn Schreiber 16-Jul-1983 
YSUAF is now only read. Remove unneeded routines to 


tock and update uaf records. Make uaf buffer allocated 
Sy NM RODE. rather than static. Change DSBMSK usage 


to LNM 
v03-006 pi s0ee? Benn Schreiber 1=-Jul-1983 
f network slave, tell node name with NOSUCHUSR error 
v03-005 BL S022! Benn Schreiber 55-May-1983 


Fix handling of SYSPRV 


NOUN OOOO NAMES WN $$ OS ODNAMU EWN OOO NAUE WN OOONAUS WR" OWONOUS Ww 


PVPS B® BBS BS EY BS EE BAAN NAIA AAIANIINIPOPOPONONYNININNY 2 2 Ss OO OO OO 
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yoe 886 Moree 13Be B9:43:93 FAXIYMS Macro vOe-00 
28 ; v03-004 BLS0211 Benn Schreiber 13-Mar-1983 
26 ; Prevent looping on global buffer error 
0 61: v03-003 BLS0197 Benn Schreiber 9-Dec-1982 
0000 og : Handle case of failing to map "global buffers on SYSUAF 
0000 64: v03-002 BL S0182 Benn Schreiber ug-1982 
° $ : Disable process and group logical name sebae” Searches 
0000 67: v03-001 BL$0177 Benn Schreiber 21-Jun-1982 
88 o : Remove definition of UAF$S "USERNAME , as it is in $SUAFDEF 
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00000004 
00000008 


00000002 
00000048 


ee wee we ee eee eel lel elololololololo) 
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SOSCOCMWMWOLRRRRERR ERR RRR 


a kk a a kk dd dd td 
PIPIPIPONMINIMNINS 2 9 9 MF DOO DODOOOOO OOOO 0000 000009 0009090909 0909 INI NNS 


NAMES WN SO OD NAMES WN $$ OS OONAUE WN $0 OD NAME WN 0 OONOAUE WW OOONAOUS WN 
ee 


UTHORIZATION INFO 16-SEP-1984 00:45:45 VAX/VMS Macro V04-00 Page 3 
NS et EAE EMAIL SRC GETUSER.MAR; 1 - ih 
, .SBTTL DECLARATIONS 
INCLUDE FILES: 
: MACROS: 
: EQUATED SYMBOLS: 
; MALFDEF ;MAIL_ CONTROL FLAG DEFINITIONS 
SPRVDEF ; PROCESS PRIVILEGE DEFINITIONS 
SPSLDEF ROCESSOR STATUS LONGWORD DEF 
SUAF DEF SER AUTHORIZATION FILE DEFINTITIONS 
SSTSDEF SSTATUS MESSAGE DEFINITIONS 
.GLOBAL UAF$L_FLAGS,UAFSV_NOMAIL ;MAKE SYMBOLS GLOBAL FOR ADDRLIST 
USERNAME = 4 ;USER NAME ARGUMENT OFFSET 
REC_ADDR = 8 ;RECORD ADDRESS ARGUMENT OFFSET 
RETRY_RLK = 2 ;NUMBER OF RETRIES IF RECORD IS LOCKED 
SLEEPTRLK = 75 [MSEC TO SLEEP BEFORE RETRYING A $GET 


OWN STORAGE: 


.PSECT SOWNS$,LONG,RD,WRT,NOEXE 
.ALIGN LONG 
MAILST_UAF BUFF: SADDRESS OF UAF BUFFER 
UAF_FAB: ia [USER AUTHORIZATION FILE FAB 
DNR=<S¥S$SYSTEM: .DAT>,- : DEFAULT IN AME 
FNM=<SYSUA : FILE NAME (SEPARATED FOR: $ DEFINE SYSUAF 
FAC=<GET>, : GET ACC 
SHR=<PUT, GET ,DEL,UPD> : SHARED ACCESS 
UAF _RAB: aa ;USER AUTHORIZATION FILE RAB 
FAB=UAF_FAB,- : ADDR OF FAB 
KBF=NAME_BUFF : KEY BUFFER 
KSZ= UAFSS BUSERNAME,, - : KEY SIZE 
RAC=KEY : RECORD ACCESS BY KEY 
> READ OF LOCKED RECORD ALLOWED 
Eades seears : BUFFER SIZE 
NAME _BUFF : 
BL KB UAF$S_USERNAME KEY BUFFER 
PSECT $P PLITS” CONG. RD,NOWRT, NOEKE 
WAKEDELTA: SLOCKED RECORD RETRY HIBERNATE TIME 
.LONG -10*1000*SLEEP_RLK,-1 
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ER 
RATI 
189 
0000 ! 3 «PSECT $CODE$,LONG,RD,NOWRT EXE 
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MAILSGETUSER GET USER AU 
tates fit MAILSOPEN.U F 4 01:5 MAIL. SRCJGETUSER.MAR; 1 ( )| 
0000 1 : .SBTTL MAILSOPEN_UAF | 
00 1 p++ 
8 } : ; FUNCTIONAL DESCRIPTION: | 
9999 $ ; OPEN SYSTEM USER AUTHORIZATION FILE | 
2099 ao tea a EN ESPEN. UAF | 
0000 140: : 
0000 141 : INPUT PARAME(ERS: | 
0000 148 : NONE 
9000 145 ; | 
000 144 : IMPLICIT INPUTS: 
0000 145: NONE 
0000 146: 
0000 147 : OUTPUT PARAMETERS: 
0000 148: NONE 
0000 149: 
0000 150 ; IMPLICIT OUTPUTS: 
0000 151: NONE 
0000 13 3 
0000 153 : COMPLETION CODES: 
0000 154: RO = SUCCESS OR FAILURE 
0000 155: | 
0000 156: SIDE EFFECTS: | 
0000 157: FAILURES SIGNALLED. | 
0000 158: 
0000 159 :-- | 
000c 0000 160 .ENTRY MAILSOPEN_UAF,“M<R2,R3> ;OPEN USER AUTHORIZATION FILE 
52. 00000004'EF 9E 0002 161 MOVAB UAF_FAB,R ‘POINT AT THE FAB 
53 00000054"EF 9E& 0009 162 MOVAB UAF~RAB.R ‘AND THE RAB 
00 01 FO 0010 163 INSV  #PSCS$C_EXEC,#FABSV_LNM_MODE,- ;SEARCH ONLY SYSTEM LOG NAMES 
4A A2 02 0013 164 #FABSS-LNM_MODE ,FABSB_ACMODES(R2) 
7E 04 0016 165 CLRL = (SP) sENABLE SYSTEM UIC PRIVILEGE | 
10000000 8F DD 0018 166 PUSHL #<1aPRV$V_SYSPRV> 
00000000°EF 02 FB OO1E 167 CALLS #2,MAILSUP_PRIV ;RAISE PRIVILEGES 
0025 168 SOPEN (R2) [OPEN AUTHORIZATION FILE 
50 DD OO2E 169 PUSHL R TSAVE STA | 
00000000'EF 00 FB 0030 170 CALLS #0,MAILSDOWN_PRIV ‘DISABLE SYSTEM UIC PRIVILEGE 
50 SED0 0037 = =171 POPL RO SRESTORE STATUS 
2c 50 £9 «003A 1% BLBC RO, 10$ “BR IF ERROR 
24 A3 O0000000'EF DO 003D 17 MOVL MAILST_UAF_BUFF ,RABSL_UBF (R3) :SET USER BUFFER ADDRESS 
0045 174 5$ SCONNECT (R3) :CONNECT THE RAB 
33 50 E8 O04E 175 BLBS $ “BR IF SUCCESS 
08 A208 AS DO 0051 «176 MOVL  §RABSL_STS(R3),FABSL_STS(R2) ;SAVE INFO IN FAB FOR ERROR 
00000000'8F 50 D1 0056 177 CMPL RO, #RAS$_CRMP :WAS IT FAILURE TO MAP GLOBAL BUFFERS? | 
OA 12 005D 178 BNEQ [BRANCH IF NOT 
48 A285 OOSF 179 TSTW = FABSW_GBC(R2) ;BEEN HERE ALREADY? 
05 13 0062 180 BEQL 108 [IF EQL YES=-GO REPORT ERROR | 
48 A2 B4 0064 181 CLRW FABSW_GBC(R2) [CLEAR THE GLOBAL BUFFER COUNT | 
1 067 188 st BRB 5$ [AND TRY AGAIN 
0c a2 DD 0069 iz PUSHL FABSL_STV(R2) :SET RMS STATUS VALUE | 
50 DD 006C 185 PUSHL RO :SET RMS STATUS 
0 ODD O6e 186 PUSHL #0 :SET FAO COUNT 
0000000'°8F oD 0 187 PUSHL #MAIL$_UAFOPNERR *SET ERROR STATUS | 
00000000'GF 04 FB 76 =: 188 CALLS #4,G*LTBSSIGNAL sSIGNAL THE ERROR 
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Riess MAILSOPEN, UAF mets 1 99:33:93 YRAIL SRC GETUSER.MAR: 1 eis (3) 
50 10000000 8F C8 007D 189 BISL #STS$M_INHIB_MSG,RO s INHIBIT FURTHER MESSA 
0084 190 20$ = ct sito on tne: 
046 0084 191 RET 
0085 192 
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GET USER AUTHORIZATION INFO 16=SEP=1984 00:45:45 VAX/VMS Macro V04-00 Pa 7 | 
MAILSGET_USER “SEP=1984 8 50:37 EMAIL SRCIGETUSER MAR: 1 - a) 
22 5 194 .SBTTL MAILSGET_USER 
00 3 196 : FUNCTIONAL DESCRIPTION: 
00 3 198 ; GET AND USER ATHORIZATION RECORD. 
b088 00 : CALLING SEQUENCE: 
0085 01 : CALL MAILS$GET_USER (USERNAME) 
0089 03 ; INPUT PARAMETERS: 
08) 04 USERNAME = ADDR OF USERNAME DESC 
0088 $06 : IMPLICIT INPUTS: | 
0085 07 : UAF_FAB IS OPEN AND UAF_RAB IS CONNECTED TO IT. | 
0085 $8 : OUTPUT PARAMETERS: 
0085 210: NONE 
0085 211: 
0085 31g : IMPLICIT OUTPUTS: 
poet siz? 3 MAILST_UAF_BUFF = ADDRESS OF USER AUTHORIZATION RECORD. | 
0085 215 COMPLETION CODES: 
0085 216: RO = SUCCESS OR FAILURE. 
0085 217 ; 
0085 218 ; SIDE ef FECTS: 
0085 219; AILURES SIGNALLED. 
0085 220: | 
0085 221 :-- 
003¢ 0083 e2¢ ENTRY MALLSGET USER, - ;GET USER AUTHORIZATION RECORD | 
00000058'EF 00100000 BF 8 0087 324 BISL § #RABSM_NLK, RABSL _ROP+UAF *RAB :SET NO-LOCK FLAG 
0092 326 : GET THE RECORD | 
54 04 AC DO 0092 228° MOVL USERNAME (AP) , R4 :GET ADDR OF USERNAME DESC 
20 20 0484 64 2C 0096 229 MOVCS (R4),@/°R4),#*A"' '', MUAFSS_USERNAME ,NAME @UFS ;BLANK FILL NAME | 
00000098 'EF 009¢ 
53 02 DO OOAl 230 MOVL #RETRY_RLK,R3 sINIT RETRY COUNTER | 
1D 11 OOAG 231 BRB [SKIP WAIT ine FIRST TIME 
00A6 33¢ 10S: BeCHDUK _S DAYTIM=WAKEDELTA : SCHEDU LE A WAKEUP REQUEST | 
07 50 £9 0089 23 BLBC ‘ ‘BR IF FAILUR E 
OOBC 234 HIBER_ ‘HIBERNATE FOR A WHILE 
00C3 235 20$:  $GET ~ UAF_RAB :GET THE USER'S *RECORE 
OE 50 «£8 9000 $36 BLBS _—RO, ‘BR IF SUCCES 
00000000'8F 50 01 00D 3 CMPL = RO #RMSS_RLK RECORD LOCK FE AROR? 
06 12 OODA 338 BNEG Get ERR ‘BR IF N 
(7 534 bon¢ 39 SOBGEQ T0$ :TRY AGAIN IF IT WAS 
01 11 OODF 240 BRB GET_ERR ; 
oe! 41 308: 
04 00€1 43 RET 
OOE 43; 
OGE 4 + ERROR GETTING RECORD 
OE 46 GET_ERR: Z ERROR READING UAF 
50 00000000'8F 01 O0E 4 CMPL = #RMS$_RNF,RO i RECORD NOT FOUND? 
12 OO 48 BNEQ IF NO = SOME OTHER ERROR 
19 0OOD0000'EF 01 £1 OOEB 249 BBC #MALF_V_NETJOB,MAILSGL FLAGS” H :BRANCH IF NOT NETWORK JOB 
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GET USER AUTH SEP=1984 00:45: AX/VMS Macro Vv04-00 Page MA 
04-0 MAILS$GET_USER g- SE oath 80:33: $3 YRATL SRCJGETUSER.MAR; 1 ° dy Tal 
> QOOO0000'EF 7F Ors 50 PUSHAQ MAIL$Q_SYSNODE :STACK ADDR OF NODE NAME 
} 04 BC 7F F 51 PUSHAQ pm :SET ADDR OF USERNAME DESC 
02 dd OOFC 3g PUSHL @# :SET NUMBER OF FAO ARGS 
QO000000'SF DD OOFE 5 PUSHL AILS NOSUCHUSRAT sERROR STATUS 
00000000'GF 04 FB 194 34 CALLS ip ae RSet GNA ‘SIGNAL THE ERROR 
04 BC F 010C 26 S$: PUSHAQ @USERNAME (AP) ;SET ADDR OF USERNAME DESC 
01 DD O10F 5 PUSHL #1 :SET NUMBER OF FAO ARGUMENTS 
QO000000'8F DD 0111 58 PUSHL #MAIL$_NOSUCHUSR ‘SET ERROR STATUS 
00000000'GF 03 FB 0117 259 CALLS #3,G*LIBS$SIGNAL ‘SIGNAL THE ERROR 
OEE Bh tos: 
QO000060'EF DD O11F 6¢ PUSHL RABSL_STV*UAF_RAB :SET RMS STATUS VALUE 
50 DD 0125 26 PUSHL RO :SET RMS STATUS 
00 oD O97 64 PUSHL #0 :SET FAO COUNT 
00000000°8F DD 0129 265 PUSHL #MALLS UAFGETERR ‘SET ERROR STATUS 
00000000'GF 03 FB Oief 266 CALLS #3,G*LTBSSIGNAL ‘SIGNAL THE ERROR 
04 0136 367 RET 
0137 «268 
0137 «269 END 
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| MAILSGETUSER GET USER AUTHORIZATION INFO 
| Symbol table 
UAF_RAB 4 Fo R 02 
USERNAME i SR 
WAKEDELTA 0000000 R 04 

toesoee aoa san ee er aren 

H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- AB as 0.) 00 ¢ OQ.) NOPIC USR 
SABSS ( 0.) 4 ( 1.) NOPIC USR 
SOWNS ( 184.) ; ( ¢°) NOPIC USR 
SRMSNAM | ae 21.) 03 ¢ -) NOPIC USR 
SPLITS 8 ( 8.) 04 ¢ 4.) NOPIC USR 
SCODES 7 (¢ #311.) O05 ¢ 5.) NOPIC USR 

cient iran ani cei teiiaaigha 
; Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 34 00:00:00.05 00:00:02.16 
Command processing 146 00:00:00.43 00:00:03.72 
Pass 265 00:00:04.70 00:00:23.39 
Symbol table sort 0 00:00:00.59 00:00:02.18 
Pass 2 64 00:00:00.96 00:00:04.95 
Symbol table output 16 00:00:00.08 00:00:00.33 
Psect synopsis output 1 00:00:00.02 00:00:00.02 
Cross-reference output 0 es Se od 00:00:00.00 
Assembler run totals 528 00:00:06.8 00:00:36.75 


The working set Limit was 1350 pages. 


35915 bytes (71 pages) of virtual memory were used to buffer the intermediate cod 
There were 40 pages of symbol table space allocated to hold 660 non-local and 8 | 
object records in Pass 


269 source Lines were read in Pass 1, producing 2 
31 pages of virtual memory were used to define 24 macros. 


! Macro Library statistics ! 
poem em mower eee eeec cece eee + 


Macros defined 


Macro Library name 


_$255$DUA28: (MAIL .OBJ JMAILMAC MLB; 1 1 
“$255$0UA28:(SYS.0BJJLIB.MLB; 1 1 

$255$DUA28:(SYSLIBISTARLET.MLB;2 19 
TOTALS (all Libraries) 21 


915 GETS were required to define 21 macros. 
There were no errors, warnings or information messages. 


X/VMS 
IL.SR 


o V04-00 
TUSER.MAR;1 


NOSHR NOEXE NORD NOWRT NOVEC 
NOSHR EXE RD 


LCL 
LCL 
LCL NOSHR NOEXE 
LCL NOSHR EXE 
LCL NOSHR NOEXE 
LCL NOSHR' EXE 


e. 
ocal symbols. 


MACRO/LIS=L1IS$:GETUSER/OBJ=0BJ$:GETUSER HSRC$:GETUSER/UPDATE=(ENHS:GETUSER) +EXECMLS/LIB+LIBS:MAILMAC/LIB 


NOWRT NOVEC 
RD NOWRT NOVEC 


BYTE 


LONG 


~~ 
-oO 


L EQUIPMENT CORPORATION 
ENTIAL -AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


1228 


D 
C 


IGITA 
ONFID 


L EQUIPMENT CORPORATION 
ENTIAL-AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


IGITA 
ONFID 


0229 


D 
C 


